// echo "
VOORAF INVR BZV1 ".$invr_bzv1." INVR CORP ".$invr_corp." INVR DOMN ".$invr_domn." INVR TAAL ".$invr_taal." INVR BZKR ".$invr_bzkr;
// require_once ("word-expl-func.php");
// require_once ("letr-expl-func.php");
// require_once ("bwrk-line-func.php");
require_once ("bepl-taal-func.php");
require_once ("xtrt-xxxx-func.php");
require_once ("text-isrt-func.php");
require_once ("calc-text-func.php");
// echo "
INVR TAAL ".$invr_taal;
// echo "
INVR BZV1 ".$invr_bzv1;
if ($invr_corp == null)
{
$invr_corp="semanta";
}
if ($invr_chbt == null)
{
$invr_chbt="semantus";
}
if ($invr_taal == null)
{
$invr_taal="nederlands";
}
if ($invr_bzv1 == null)
{
$invr_bzv1="sleutelwoord";
}
// echo "";
$invr_domn=$invr_corp;
$freq_rslt=xtrt_xxxx($invr_bzv1,$invr_chbt,"splt");
// print_r($freq_rslt);
echo "
COUNT ".count($freq_rslt);
if (count($freq_rslt) > 0)
{
echo "
In de kennisbank van Lingvistica komt ".$invr_bzv1." voor in meerdere zinnen.
";
foreach($freq_rslt as $freq_key => $freq_val)
{
// echo "
FREQ KEY ".$freq_key. " FREQ VAL ".$freq_val;
$freq_dtls=explode("!!",$freq_key);
$freq_text=$freq_dtls[3];
$freq_levl=$freq_dtls[6];
$cinvr_bzv1="".$invr_bzv1."";
if ($freq_text != "TITLE")
{
$sfreq_text=str_replace($invr_bzv1,$cinvr_bzv1,$freq_text);
$sfreq_text=ucfirst($sfreq_text);
// echo "....".$sfreq_text."....
";
}
}
}
echo "
";
// echo "
";
// $calc_text=calc_text($invr_bzv1,$invr_chbt,$invr_corp);
$grammatica=text_isrt($invr_taal."@Grammatica");
// echo "
Taalkunde".$grammatica;
$grammatica=strtoupper($grammatica);
// echo 'TEXT FRAGMENTS
';
$sinvr_bzv1=str_replace(" ","+",$invr_bzv1);
$pinvr_bzv1="".$invr_bzv1."";
// echo "
".$pinvr_bzv1;
$zoek_bzv1="%".$invr_bzv1."%";
// echo "
AAN DE SLAG INVR BZV1 ".$invr_bzv1." INVR CORP ".$invr_corp." INVR DOMN ".$invr_domn." INVR TAAL ".$invr_taal." INVR BZKR ".$invr_bzkr." INVR CHBT ".$invr_chbt;
if (strlen($invr_bzv1) >2)
{
////////////////////
$sql = "SELECT * FROM splt where `rchs` like '$zoek_bzv1' order by `domn` asc";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sql, $link);
$tabl_num = mysql_num_rows($tablresult);
echo "
Aantallen tref ".$sql." ".$tabl_num;
// echo "
";
$linvr_bzv1=str_replace(" ","+",$invr_bzv1);
if ($tabl_num == 0)
{
$lrchs="".$invr_bzv1."";
echo $lrchs;
$lrchs="Vraagstellingen";
// echo $lrchs;
echo '';
}
else
{
echo "";
while ($row = mysql_fetch_assoc($tablresult))
{
$ipad=$row['ipad'];
$taal=$row['taal'];
$taal_array[$taal]=$taal_array[$taal]+1;
$lnks=$row['lnks'];
$rchs=$row['rchs'];
$domn=$row['domn'];
$chbt_rslt=xtrt_xxxx($domn,$invr_chbt,"base");
if ($invr_chbt == null)
{
$chbt_rslt=xtrt_xxxx($domn,"semantus","base");
}
// echo "
DOMN ".$domn." LNKS ".$lnks." RCHS ".$rchs;
// print_r($chbt_rslt);
foreach($chbt_rslt as $chbt_key => $chbt_val)
{
$rule_itms=explode("!!",$chbt_key);
$tref_scre=$rule_itms[0];
$tref_taal=$rule_itms[1];
$tref_domn=$rule_itms[2];
$tref_vrag=$rule_itms[3];
$tref_antw=$rule_itms[4];
if (strlen($rchs) < 256)
{
$domn_array[$domn]=$domn_array[$domn]+1;
$chbt_array[$tref_domn]=$chbt_array[$tref_domn]+1;
$knns_array[$rchs."@".$tref_domn."@".$tref_vrag]=$knns_array[$rchs."@".$tref_domn."@".$tref_vrag]+1;
// echo "".$tref_vrag." | ".$tref_antw." | ".$tref_domn." | ".$lnks." | ".substr($rchs,0,256)." |
";
}
// echo "
DOMN ".$tref_domn." LNKS ".$lnks." RCHS ".$tref_antw;
$tref_datm=$rule_itms[5];
$tref_levl=$rule_itms[6];
$tref_ipad=$rule_itms[7];
}
}
}
}
echo "
Er zijn ".count($domn_array)." corpora waarin het sleutelwoord ".$cinvr_bzv1." gevonden is. U kunt per corpus uw gesprek voortzetten op basis van de frequentieverdeling over de corpora.
";
foreach($domn_array as $domn_key => $domn_val)
{
echo " ".$domn_key." ";
}
echo "Daarnaast zijn er ".count($chbt_array)." gesprekspartners waarmee u als bezoeker kunt spreken.";
foreach($chbt_array as $domn_key => $domn_val)
{
echo " ".$domn_key." ";
}
arsort($knns_array);
// echo "
Er zijn ".count($knns_array)." plaatsen gevonden met daarin ".$tabl_num." vermelding(en) van ".$invr_bzv1. ". In deze versie van Semanta worden er maximaal 5 getoond.";
// echo "
Er zijn ".count($knns_array)." plaatsen gevonden met daarin ".$tabl_num." vermelding(en) van ".$invr_bzv1. ".
echo "";
$nd=0;
foreach($knns_array as $knns_key => $knns_val)
{
if ($nd < 5)
{
$knns_dtls=explode("@",$knns_key);
// print_r($knns_dtls);
$knns_file=$knns_dtls[0];
$knns_domn=$knns_dtls[2];
$knns_chbt=$knns_dtls[1];
// echo "
KNNS DOMN ".$knns_domn;
$file_dtls=explode("/",$knns_file);
// print_r($file_dtls);
$knns_text=$file_dtls[0];
$knns_corp=$file_dtls[2];
// echo "
KNNS CORP".$knns_corp." INVR CORP ".$invr_domn;
$sknns_text=str_replace(" ","+",$knns_text);
// print_r($file_dtls);
if ($knns_corp != $invr_corp)
{
// echo "
Kies een ander corpus ";
}
else
{
if (count($file_dtls) > 1)
{
$knns_corp=$file_dtls[2];
$lknns_key="".$knns_file."";
}
else
{
$lknns_key="".$knns_file."";
}
if ($krelt != $knns_domn)
{
$krelt=$knns_domn;
echo "".$knns_val." | ".$knns_domn." | ".$lknns_key." |
";
}
else
{
echo "".$knns_val." | | ".$lknns_key." |
";
}
$nd=$nd+1;
}
}
}
echo "
";
// print_r($knns_array);
////////////////////
// require_once("fnsh-func.php");
?>